Simples [PortScanner]
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 4.303 ]
É um script simples. Criado para iniciantes.
Não é nenhum [nmap] mas é bem legal e funcional.
Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.
Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.
#!/usr/bin/perl #-------------------------------------------------------------------------------------------------------- # # @Author: breek # @Code: SimplePortScanner.pl # @Version: 0.1.0 # @Date: 22/02/2012 # #-------------------------------------------------------------------------------------------------------- #===============================================================# # É um script simples. Criado para iniciantes. # Não é nenhum [nmap] mas é bem legal e funcional. # # Esta bem comentado. É claro que esta em [inglês], mas # é para não perder o costume. Usei o [Google Tradutor], # caso haja alguma palavra errada é culpa é dele. # # Criado para ser modificado. Cada modificação mexa na versão. # NÃO ALTERE MEU NOME!! # NÃO ALTERE O NOME DO SCRIPT!! #===============================================================# use strict; use warnings; use IO::Socket; #-------------------------------------------------------------------------------------------------------- #__BEGIN_MAIN__ # # Name: Main # # Purpose: Initializes the script. # # Input: $Var_IP # $Var_BeginPort # $Var_EndPort # # Output: $Var_IP # $Var_Scanning # #----------------------------- #Global variables # my $Var_IP; # Recebe o [Endereço IP] - USUARIO my $Var_BeginPort; # Recebe a [Porta inicial] - USUARIO my $Var_EndPort; # Recebe a [Porta final] - USUARIO my $Var_Scanning; # Escanea as portas - SCRIPT my $Var_FindOpenPort; # Recebe as portas abertas - SCRIPT # # #----------------------------- system( "cls" ); # Recebe o [Endereço IP] # print "Enter the IP address: "; $Var_IP = <>; chomp $Var_IP; # Recebe a [Porta inicial] # print "Enter the starting port: "; $Var_BeginPort = <>; chomp $Var_BeginPort; # Recebe a [Porta final] # print "Enter the ending port: "; $Var_EndPort = <>; chomp $Var_EndPort; # Iniciando escaneamento # print "\n\nScanning IP [ $Var_IP ]. \n\n"; # Escaneando # for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ ) { $Var_FindOpenPort = IO::Socket::INET->new( PeerAddr => $Var_IP, # Endereço IP PeerPort => "$Var_Scanning", # Numero da porta Proto => "TCP", # Protocolo ); # Porta aberta encontrada # if( $Var_FindOpenPort ) { print "[+] Port [$Var_Scanning] is open. \n"; } } # Finalizando script # print "\nScanning...DONE. \n"; exit; #__END_MAIN__ #--------------------------------------------------------------------------------------------------------
Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)
Carregando automaticamente wireless via ndiswrapper II
Carregando automaticamente wireless via ndiswrapper
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Dificuldade com Ocs 2.12.3 no Debian 13 com Apache2 - Can't load ... (4)
paginação dos favoritos não funciona no vivaolinux[BU... (4)